home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
docume1a
/
mdiform1
< prev
next >
Wrap
Text File
|
1999-09-10
|
38KB
|
1,132 lines
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "Document Editor"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "MDIForm1"
LockControls = -1 'True
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1035
Left = 0
TabIndex = 0
Top = 0
Width = 4680
_ExtentX = 8255
_ExtentY = 1826
ButtonWidth = 609
ButtonHeight = 556
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 46
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "New"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "Open"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Save"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Save As"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Delete"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Print"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Print Preview"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "Close"
Object.Tag = ""
ImageIndex = 8
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Object.Tag = ""
Style = 4
Object.Width = 130
MixedState = -1 'True
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Object.Tag = ""
Style = 4
Object.Width = 130
MixedState = -1 'True
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
Object.Width = 240
MixedState = -1 'True
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Cut"
Object.Tag = ""
ImageIndex = 9
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Copy"
Object.Tag = ""
ImageIndex = 10
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "Paste"
Object.Tag = ""
ImageIndex = 11
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
Object.Width = 400
MixedState = -1 'True
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Spell Checker"
Object.Tag = ""
ImageIndex = 21
Object.Width = 130
MixedState = -1 'True
EndProperty
BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
Object.Width = 400
MixedState = -1 'True
EndProperty
BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Find"
Object.Tag = ""
ImageIndex = 12
EndProperty
BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Object.Tag = ""
Style = 4
Object.Width = 130
MixedState = -1 'True
EndProperty
BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Object.Tag = ""
Style = 4
Object.Width = 130
MixedState = -1 'True
EndProperty
BeginProperty Button21 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
Object.Width = 240
MixedState = -1 'True
EndProperty
BeginProperty Button22 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Bold"
Object.Tag = ""
ImageIndex = 13
EndProperty
BeginProperty Button23 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Italic"
Object.Tag = ""
ImageIndex = 14
EndProperty
BeginProperty Button24 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Underline"
Object.Tag = ""
ImageIndex = 15
EndProperty
BeginProperty Button25 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Object.ToolTipText = "Strikethru"
Object.Tag = ""
ImageIndex = 16
EndProperty
BeginProperty Button26 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Object.Tag = ""
Style = 4
Object.Width = 130
MixedState = -1 'True
EndProperty
BeginProperty Button27